home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot20.d64 / func.get'protect < prev    next >
Text File  |  2009-01-23  |  459b  |  18 lines
  1. 1120 ╞╒╬├ WRITE'PROTECT(DRIVE$) ├╠╧╙┼─
  2. 1130   // THIS FUNCTION TESTS WHETHER
  3. 1140   // OR NOT THE DISK IN THE DRIVE
  4. 1150   // CAN BE WRITTEN TO. A GARBAGE
  5. 1160   // FILE NAME IS USED.
  6. 1170   //
  7. 1180   FILENAME$:=DRIVE$+"ACEGIKMOQ246"
  8. 1190   ╘╥┴╨ 
  9. 1200     ╧╨┼╬ ╞╔╠┼ 79,FILENAME$,╫╥╔╘┼
  10. 1210     ├╠╧╙┼ ╞╔╠┼ 79
  11. 1220     ─┼╠┼╘┼ FILENAME$
  12. 1230     ╥┼╘╒╥╬ ╞┴╠╙┼
  13. 1240   ╚┴╬─╠┼╥ 
  14. 1250     ├╠╧╙┼ ╞╔╠┼ 79
  15. 1260     ╥┼╘╒╥╬ ╘╥╒┼
  16. 1270   ┼╬─╘╥┴╨ 
  17. 1280 ┼╬─╞╒╬├ WRITE'PROTECT
  18.